home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-09 / floppies.zip / FLOPPY.ZIP / FLOPALL.SC < prev    next >
Text File  |  1992-03-15  |  2KB  |  71 lines
  1. ;-------------------------------------------------FLOPALL.SC
  2. ;------------SET UP LOOP FOR EDITING.
  3.  
  4.  
  5. CLEAR
  6. STILLATIT = TRUE
  7. WHILE STILLATIT
  8.       CLEARALL
  9.       CLEAR
  10.       STYLE ATTRIBUTE 30
  11.       @ 12,10
  12.       ?? "ENTER DISK # TO LOOKUP   "
  13.       @ 14,10
  14.       ?? "OR JUST PRESS ENTER TO EXIT: "
  15.  
  16.       ACCEPT "A10" TO LOOKUP
  17.       LOOKUP=UPPER(LOOKUP)
  18.       ;-------------IF NO ENTRY EXIT.
  19.       IF ISBLANK(LOOKUP) THEN
  20.          @ 24,10 CLEAR EOL
  21.          ?? "RETURNING TO MAIN MENU..."
  22.          QUITLOOP
  23.       ENDIF
  24.  
  25.       @ 24,1
  26.       ?? "SETTING POINTER TO " + LOOKUP
  27.       ;--------------PERFORM A FIND QUERY.
  28.       MENU {ASK} {FLOPPIES}
  29.       [DISK #] = LOOKUP
  30.       [#] = "FIND"
  31.       DO_IT!
  32.  
  33.       ;----------NO MATCH MESSAGE.
  34.       IF (NRECORDS("ANSWER") = 0) THEN
  35.          BEEP
  36.          @ 24,1 CLEAR EOL
  37.          ?? LOOKUP + " NOT IN CURRENT LIST "
  38.          SLEEP 5000
  39.          LOOP
  40.       ENDIF
  41.  
  42.       ;-----------ALLOW DATE CHANGES ON FORM F.
  43.       EDITKEY
  44.       MENU {IMAGE}{PICKFORM}{F}
  45.  
  46. X=TRUE
  47. WHILE X
  48.       WAIT TABLE
  49.            PROMPT "PRESS F2 WHEN DONE WITH THIS ENTRY , F5 TO SORT TABLE",
  50.                    "PRESS F7 FOR TABLE VIEW, PRESS F8 TO READ A NEW DISK"
  51.            UNTIL "F2","F5","F7","F8"
  52. SWITCH
  53.      CASE RETVAL = "F2" :
  54.                     X = FALSE
  55.                     DO_IT!
  56.      CASE RETVAL = "F5" :
  57.                     DO_IT!
  58.                     PLAY "FLOPSORT"
  59.                     EDITKEY
  60.      CASE RETVAL = "F7" :
  61.                     FORMKEY
  62.      CASE RETVAL = "F8" :
  63.                     DO_IT!
  64.                     PLAY "READFLOP"
  65. ENDSWITCH
  66. ENDWHILE
  67. ENDWHILE
  68. CLEAR
  69. RETURN
  70.  
  71.